home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / imb9103.zip / CREATE.BAS next >
BASIC Source File  |  1991-03-01  |  1KB  |  58 lines
  1. DEFINT A-Z
  2. 'PROGRAM - CREATE.BAS
  3. 'Sample use of variant record programming technique
  4.  
  5. DATA "Blake Ragsdell", "9420 Bunsen Parkway","Louisville"
  6. DATA "KY","40220","8002238720","B"
  7. DATA 99,"Editor-in-Chief","The Cobb Group, Inc.","Suite 300"
  8. DATA "Mary Kent","100 Tungsten Express","Small Town","US"
  9. DATA "00000","5555551212","P"
  10. DATA "John","072432","101730"
  11.  
  12. CLS
  13.  
  14. OPEN "MAILLIST.DAT" FOR RANDOM AS #1 LEN = 150
  15.  
  16. FIELD 1, 20 AS MName$, 25 AS Address$, 20 AS City$, 2 AS State$, _
  17.           5 AS ZipCode$, 10 AS Phone$, 1 AS Tag$
  18. FIELD 1, 83 AS Filler$, 2 AS Age$, 20 AS Position$, _
  19.          20 AS Company$, 25 AS Address2$
  20. FIELD 1, 83 AS Filler$, 20 AS Spouse$, 6 AS Birthday$, _
  21.           6 AS SpouseBD$, 30 AS dummy$
  22.  
  23. FOR R = 1 TO 2
  24.    FOR I = 1 TO 7
  25.      READ Temp$(I)
  26.    NEXT I
  27.  
  28.    IF Temp$(7) = "B" THEN READ Temp%
  29.  
  30.    FOR I = 8 TO 10
  31.      READ Temp$(I)
  32.    NEXT I
  33.  
  34.    LSET MName$ = Temp$(1)
  35.    LSET Address$ = Temp$(2)
  36.    LSET City$ = Temp$(3)
  37.    LSET State$ = Temp$(4)
  38.    LSET ZipCode$ = Temp$(5)
  39.    LSET Phone$ = Temp$(6)
  40.    LSET Tag$ = Temp$(7)
  41.    SELECT CASE Temp$(7)
  42.      CASE "B"
  43.        LSET Age$ = MKI$(Temp%)
  44.        LSET Position$ = Temp$(8)
  45.        LSET Company$ = Temp$(9)
  46.        LSET Address2$ = Temp$(10)
  47.      CASE "P"
  48.        LSET Spouse$ = Temp$(8)
  49.        LSET Birthday$ = Temp$(9)
  50.        LSET SpouseBD$ = Temp$(10)
  51.    END SELECT
  52.    PUT 1
  53. NEXT R
  54. CLOSE 1
  55. END
  56.  
  57.  
  58.